﻿'{"Code":1,"Msg":"Success","Data":{"PageIndex":1,"PageSize":30,"TotalCount":1,"TotalPages":1,"HasPreviousPage":false,"HasNextPage":false,"Items":[{"id":"0","f_id":"0","gtin":"00768497313989","description_cn":null, "specification_cn": null, "brand_cn": null, "gpc": null, "gpc_name": null, "origin_cn": null, "origin_name": null, "codeNet": null, "codeNetContent": null, "suggested_retail_price": 0,"suggested_retail_price_unit":null, "txtKeyword": null, "picfilename": null, "realname": "INDUSTRIAS FACELA, S.A. DE C.V.","branch_code":null, "branch_name": null, "importer_name": null, "certificatefilename": null, "certificatestatus": 0,"isprivary":0,"isconfidentiality":0,"datasource":3}]}}
Public Class Jsonkey
    Inherits Sy.Data.JsonObject(Of Jsonkey)
    Public Property keywords As List(Of ClsData)
    Public Class ClsData
        Public Property keyword As String = ""
        Public Property sa_metrics As jsonobj
        Public Class jsonobj
            Inherits Sy.Data.JsonObject(Of jsonobj)
            Public Property searches As String
            Public Property purchases As String
            Public Property matches As String
        End Class
        Public Property googletarget As jsonobjg
        Public Class jsonobjg
            Inherits Sy.Data.JsonObject(Of jsonobjg)
            Public Property cpc As jsoncpc
            Public Class jsoncpc
                Inherits Sy.Data.JsonObject(Of jsoncpc)
                Public Property lb As String
                Public Property ub As String
            End Class
        End Class
    End Class
End Class




'Public Module Test
'    Public Function Test()
'        Dim Json As String = "{}"
'        '1
'        Dim Obj = ClsResult.DeserializeSafety(Json)
'        If Obj.IsNotNull() Then
'            Dim name = Obj.result
'        End If

'        '2
'        Try
'            Dim Obj2 = ImportProduct.Deserialize(Json)
'        Catch ex As Exception
'            Throw ex
'        End Try
'    End Function
'End Module

